SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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LL I11111 000000 SSSSSSSS UU UU BBBBBBBB 77777777 333333 000000 

LL 1111 000000 SSSSSSSS_ UU UU BBBBBBBB 77777777 3333 000000 

LL I] 00 00 SS UU UU 8B 8B 77 33 3 8 00 

LL I] 00 00 SS UU UU BB BB 7: 3 00 00 

LL I] 00 00 SS UU UU BB 8B 77 ; 00 0000 

LL I] 00 00 SS UU UU BB BB 77 00 0000 

LL I] 00 00 SSSSSS UU UU BBBBBBBB 77 33 00 00 00 

LL I] 00 00 SSSSSS UU UU BBBBBBBB 77 33 00 00 00 

LL I] 00 00 SS UU UU BB 8B 77 33 0000 00 

LL I] 00 00 SS UU UU BB BB 77 33 0000 00 

LL II 00 00 SS UU UU BB BB 77 33 $3 00 00 eeee 
LL I] 00 00 SS UU UU BB BB 77 33 3 00 00 coe 
LLLLLLLLLL III! 000000 SSSSSSSS UUUUUUUUUU = BBBBBBBB 77 333333 00C000 cove 
LLELLLLLLLL HII 000000 SSSSSSSS UUUUUUUUUU = BBBBBBBB 77 333333 000000 eee 
LL IIIT] SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL II SS 

LLLLLLLLLL T1111] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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$i d »NOSHOW CONDITIONALS | 
0 9 
4 i} -TITLE LIOSUB730 = LOADABLE I/0 SUBROUTINES 
009 17 | 
6 .IDENT 'V04=000" 
ae 
44 5 SNR a el ad ese BEEN suse 
** 
$609 $9 $= COPYRIGHT (c) 1978, 1980, 1982. 1984 B . 
4444 8 ;* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
4 ; :* ALL RIGHTS RESERVED. x 
; we 
0000 1 3;* THIS SOFTWARE is FURNISHED sunee A LICENSE AND MAY BE USED AND COPIED * 
0000 § 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 7 | USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 34 ;* COPIES THEREOF MAY NOT B ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 5 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i444 § :* TRANSFERRED. . 
é ® 
0000 38 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 39 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
sit re :* CORPORATION. * 
3 *® 
0000 4g 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 435 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 44 ;* * 
0000 45 se * 
444 48 E PORE RBRSAAAZAAAAAAALALALALLAELEAAAES SESE REARS AERA ERE REAR RA AAR ERASER ARERR RA RA RRA RAS SO 
0000 48 :+4+ 
0000 49 ; 
0000 50; FACILITY: 
0000 51 3 
0000 26 : EXECUTIVE, 1/0 CONTROL ROUTINES 
0000 a2 8 
44 ze 3 ABSTRACT: 
4444 28 : 1/0 SUBROUTINES WHICH CONTAIN PROCESSOR DEPENDENCIES. 
0 : AUTHOR: 
$000 88. 
i444 9 3 N. KRONENBERG, JANUARY 12, 1979. 
3 6 6¢ ; MODIFIED BY: 
000 64: v03-012 KDN0096 Kathleen D. 27-Mar-1984 
44 65 ; ate "2 mo ory CSR scanning to 1OCSPURGDATAP for om icrovAX ; 
000 06 s lL DMA MicroVAX vere should call this routine, just 
000 ? : Selaee calling IOCSREQCOM.) 
) é3 : V03-011 KDM0081 athleen D. Morse 13-Sep-1983 
: : 4 : Create a alien” Sa Micro-VAX I. 
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L10SUB730 = LOADABLE 1/0 SUBROUTINES 16-SEP-1984 00:55:1 AX/VMS Macro V04-00 Pa 
reins mitt ri 8? :10: ‘Og SYSLOA.SRCJLIOSUB.MAR; 1 - dy 
fe s v03-010 TCM0004 Trudy C. Matt 4-Jan-1982 
rs : Added 11/790-speci tic path ts Mee SPURGDATAP™ 
75: vo9 TCMO003 Trudy C. Matthews 9-Nov-1982 
p 6 : Added a .TITLE statement for L10SUB790. 
78: vo8 TCMO0002 Trud Mathews 29-Jul-1981 
3 9 Changed all "722s to “30% 
$50 1 : v07 TCMO0001 Trud x Matthews as Ph +a 
00 § : Changed d IOCSPURGDATAP for NEBULA so that it “—" 
88 3 the Unibus Error Summary register itself chen here 
600 ¢ ; are Unibus errors reported. 
9000 6: v06 PK0002 N. KRONENBERG 4=DEC-1979 
4 fi : REPLACED LOCSPURGDATAP FOR NEBULA 
9000 89 : vos NPKOOO1 N. KRONENBERG 23-AUG-1979 
50 a 3 CORRECTED 11/750 CHECK FOR PURGE DONE. 
0000 3 F v04 cM0001 Trud Matthews 3-Jul-1979 
0000 98: Modified [OCSPURGDATAP for NEBULA” 
0000 94 ; 
0000 95 ;-- 
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vou=000 PURGE 
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e % 
SUBROUTINES 16-SEP=1984 00:55:14 VAX/VMS Macro V04-00 p 
~3Ep= 198s Oasios0s | f een? age 


-SBTTL PURGE DATAPATH 
IOCSPURGDATAP = PURGE DATAPATH 


This routine purges the caller's buffered datapat*. and clears any 
datapath errors. if there was a datapath error, tr s fact is 


returned to the caller. 
INPUTS: 

RS = UCB address 
OUTPUTS: 


RO-R3 altered 
eset registers preserved 


RO = Low bit clear/set if transmission error/success 
R1 = DPR contents after purge (for register dump by caller) 
0 Re = address of start of adapter map registers (for reg dump by caller) 
R35 = CRB address 
0000 8 -PSECT WIONONPAGED 
-ENABL LSB 
IOCSPURGDATAP: : : 


or uncorrected read error.) 
Branch if no errors. 


— 
nm 
— 
Ww 


BEQL 
> The shared Unibus error register indicates an error. Log it. 


SBP AAAA AAA AAPNDNYDINININDINIDIRN) 9 DCO DAA ADA I T ITI EPP EEEWS  IO 
RO DWDNOAU EWN 2 OOONAU EWIDO ODNA FA UWN CO OD NAME WN OOONOAOUE WN O0OOon 


0 
0 
0 3; The VAX 11/730 has no rset datapath registers, so no actual 
0 3; purge is done. The 11/730 maintains a shared UNIBUS error 
0 3 register, which is checked here. if an error is shown 
0 : in the shared error register, it is Logged as a UNIBUS error. 
0 : note, however, that since the error register is shared, the error 
0 ; could possibly belong to another device going a transfer 
0 3 concurrently. the error will show up twice in the error tags once 
3; as a UNIBUS error and once as an NXM in a device register for the 
0 ; device that really had the error. 
0 a 
10 0 PUSHR #*M<R4> ; Save register 
23 $s Ae D Bp MOVL UCB$L_CRB(R5) ,R3 ; Get CRB address 
2 8 8 D 54 MOVL @CRBSC_INTD+VECSL_ADP(R35 ,R2 ; Get start of adapter register space 
60 EF SA EXTZV #VECSV_DATAPATH,- ; Extract datapath # 
5 oc #VEC$S_DATAPATH,- ; from 
1 373 0D CRBSL_INTD+VEC$B_DATAPATH(RS) ,R1 
4 10 A2 0D 10 MOVL UBISL-SR(R2) ,R4 ; Get Unibus Error Summary reg. 
54 8001C000 8F OD 14 BITL ecu 1S SR_UWE!- Any UB errors? (write error, 
18 UBI M_SR_MRPE!~ map parity error, 
i UBISM non-existent memory, 
18 
1D 
1D 


: | 


SYSLOA.SRCILIOSUB.MAR; 1 (3) 


it —— . | 
SUBROUTINES Mer SEen19RS BOrEa 1S PANcvAs Bacco yO4.00 fneah * 


LJOSUB730 = LOA 
vbu=000 PURGE * SYSLOA. SRC {t10 SUB.MAR; 1 


/0 
Dd TH 
1D 263; | 
52 D 1D 44 PUSHL ; Save addr of adaptor re space 
34 Ye A 1F 45 MOVZBL Henin UE a ted R1 ; Set length of error buffer 
0000 090° Pais ; 8 JSB G*ERLSALL ; Get a message buffer. 
E 4 BLBC R : Branch if unsuccessful. 
10 3 4 0 8 rh MOVL Ra MBSL UE_UBERR(R2) ; Put error register in buffer. 
O4 A A F $3 MOVZBL Ay ta Eytay na) ; Set entry type in buffer. 
canes 16 3 3f JSB ccERLSR ECEA ; Release buffer to errorlogger. 
4 BA 26 208: POPR ; Restore addr of adaptor regs. 
4 54 ; Set up outputs from PURGDATAP. 
50 01 00 00 2$ $0: MOVL #1,R0 ; Set success always. 
51 04 00 5 CLRL ; No DPR contents. 
52 0800 C2. ODE Boe 28 MOVAL UBISL_MAP(R2),R2 : Return addr of ist map reg. 
10 BA 094 60 POPR #*M<R4> ; Restore register 
05 0047 61 RSB ; Return 
0048 63 
004 97 
004 98 
004 99 
0048 00 


| 
-DSABL LSB 
~END 


L10SUB730 
Symbol table 


= LOADAB 


C750_LIKE = 1 
C780-LIKE = 9 
CPU TYPE = 
CheSL INTD . fe 
EMBSC_UE = 000 B 
EMBSC"UE_LENGTH = 8 14 
EMBSL-UE~UBER RR . 10 
EMBSW_UE ENTRY = 00000004 
ERLSACLOCEMB aeeeeeee =X 0 
ERLSRELEASEMB eeeeeeee =X 0 
LOCSPURGDATAP 0009000 RG 0 
PR$_SID_TYP? 8 = 88 3 3 
PRS_SID_TYP? = 
PRS$_SID_TYP780 a 888 0001 
PRS_SID_TYP790 = 00000004 
PRS _SID_TYPUV1 = 00000007 
UBISL_MAP = Ha a! 
UBISL_SR = 0000001 
UBISM_SR_MRPE = 00008000 
UBISM_SR_NXM = 00010000 
UBISM_SR_UC = 80000000 
UBISM_SR_UWE = 00004000 
UCBSL_CR = 00000024 
VEC$B_DATAPATH = 00000013 
VEC$L_ADP = 00000014 
VEC$S_DATAPATH = 00000005 
VECSV_-DATAPATH = 00000000 
pw ew eee ese seas eoe + 
: ;_Psect synopsis ! 
seueeeennecessen$> 
PSECT name Allocation PSECT No. Attributes 
s 00000000 < 0.) 00 ¢ 0.) NOPIC  USR 
$ 00000000 Q.) O17 ¢ 1.) NOPIC  USR 
WIONONPAGED 00000048 (¢ 72.) 02 ¢ 2.) NOPIC USR 


Phase Page faults 
Initialization 33 
Command processing 137 
Pass 1 279 
Symbol table sort 0 
Pass 2 49 
Symbol table output 5 
Psect synopsis output 
Cross-reference output 

Assembler run totals 50 


The working set Limit was 1350 pages 
44149 bytes (87 pages) of virtual memory 


LE 1/0 SUBROUTINES 


$eowcwcceeccccocccececcccn$} 


a ar 
(00:00:08 00:00:06. 
a ae 


were used to buffer 


CON 
CON 
CON 


he intermediate 
There were 50 pages of symbol table space allocated to hold 775 non-local and 


ABS LCL 
ABS LCL 
REL LCL 


ode 


local symbols. 


16-SEP-1984 00:55:14 YAX/VMS Ma 
873 b= 1 584 0:40:08 USYSLOA. SR 


EXE 


cro V04-00 
REIL LiOSUB.MAR; 1 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD 
NOSHR 


WRT NOVEC BYTE 
RD WRT NOVEC BYTE 


N 1 
L10SUB730 = LOADABLE 1/0 SUBROUTINES 16-SEP-19 
VAX=11 Macro Run Statistics -SEP-19 


304 source Lines were read in Pass 1 produc ing 13 object records in Pass 2. 
pages of virtual memory were used to define 16 macros. 


Fr 
oo 
*“o 
ae 
ou 
o-— 


:14 VAX/VMS Macro v04-00 Page 7 
:05 CSYSLOA.SR rare IOSUB.MAR; 1 (3 


Few oeeeeeeeeoeeeeoeeeeseseses} 


! Macro Library statistics ! 


bom m eee sen mee mm wore ee ee ome wt 


Macro Library name Macros _defined 
~$259$DUA28: SYS. 08, JL1B.MLB;1 3 
$255$DUA eye 1B) STARLET.MLB;2 4 
TOTALS (all Libraries) 13 


864 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:L10SUB730/0BJ=0BJ$:LIOSUB730 MSRC$:CPUSW730/UPDATE=(ENH$: CPUSW730) +MSRC$:LIOSUB/UPDATE=(ENH$:LJOSUB) +EXECML$/LIB 


907 AH-BT13A-SE IPMENT CORPORA 
Vo7! VAX/VMS V4.0 


TI 
L AND PROPRIETAR 


ON. 
Y 


